# female
ug2cb$sex_q2_1
ug2$female <- NA
ug2$female[ug2$sex_q2_1 == 2] <- 1
ug2$female[ug2$sex_q2_1 == 1] <- 0

# age
ug2$age <- ug2$age_q2_3

# Satisfaction with police
ug2cb$robbed_police_q11_5

ug2$police_satisfactory <- ug2$robbed_police_q11_5 -1 

ug2$police_satisfactory  <- ug2$police_satisfactory/2

# Support for mob violence 
ug2cb$truck_q15_4_1c
ug2cb$truck_q15_4_2c


ug2$support_mob_driver <- NA
ug2$support_mob_driver[ug2$truck_q15_4_1c ==1] <- 1
ug2$support_mob_driver[ug2$truck_q15_4_1c ==2] <- 0
ug2$support_mob_driver[ug2$truck_q15_4_2c == 1] <- 1
ug2$support_mob_driver[ug2$truck_q15_4_2c == 2] <- 0

